home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 42 / Tiger_Disk_042_1997-09_Tiger-Crew-Disk_de_Side_B.d64 / - ende - 052 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  134 lines
  1. 1 poke53280,12:poke53281,11:printchr$(147):
  2. 6 print"[147][145][152]     aus lukian's nonsens-werkstatt     [146]";:
  3. 11 print"[158]  vor dem ende 'ne kleine denkaufgabe!":forz=1to1700:next
  4. 16 poke53280,11:poke53281,.:printchr$(14)chr$(8);
  5. 20 print"[147][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]";
  6. 21 print"[156] [196]ie [193]ufgabe:";"[129][157][157][157][157][157][157][157][157][157][157][157][157]  -[197]s sind [199]leisverbindun";
  7. 26 print"gen von den      drei [215]erkhallen ([215]1[146] bis [215]3[146]) zu den"
  8. 31 print"   vier [204]agern ([204]1[146] bis [204]4[146]) anzulegen!"
  9. 36 print
  10. 41 print"   [196]abei sollen nicht mehr [203]reuzungen
  11. 46 [153]"   als unbedingt notwendig eingerich-"
  12. 51 [153]"   tet werden!"
  13. 56 [153]"cont   str$ie (NULL)treckenfuehrung kann beliebig "
  14. 61 [153]"   gewaehlt werden."
  15. 66 [153]"newnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnew";
  16. 77 [153]"  atnlles klar?                          "
  17. 81 [151]53280,.:[153]"poke   str$ruecke bitte die ''(NULL)atn(NULL)chr$val (NULL)atn(NULL)(NULL)val''!"
  18. 101 [153]"print#             pokecosprint#usrusrusrusrusrusrusrusrusrusrusrusrpokelogwait             ";
  19. 106 [146]197,63:[153][199](142):[151]53280,.:[151]53281,.:[153]"load":[141]581
  20. 111 [153]"      pokesteptoto(NULL)wait                    steptoto(NULL)":
  21. 116 [153]"      fnwait(NULL)(NULL)thenwait                    fnwait(NULL)(NULL)thenwait"       "
  22. 121 print"  [155] l1 [151][212][182][181][217][146]                    [212][182][181][217][146] [155]l2""
  23. 126 [153]"      listtab(tab(tab(tab(         pokeon rnd         listontab(tab(tab(tab("
  24. 131 [153]"                 onsteptotototo(NULL)waitdef w1"
  25. 136 [153]"                 onsgncoscoscoscosabs"
  26. 141 [153]"                 deftab(tab(tab(tab(tab(tab("
  27. 146 [153]"                    pokernd"
  28. 151 [153]"                 steptotototo(NULL)"
  29. 156 [153]"                 sgncoscoscoscosabswaitdef w2 "
  30. 161 [153]"                 tab(tab(tab(tab(tab(tab("
  31. 166 [153]"                    pokernd"
  32. 171 [153]"                 steptotototo(NULL)"
  33. 176 [153]"                 intcoscoscoscosabswaitdef w3  ":
  34. 181 [153]"def                 tab(tab(tab(tab(tab(tab("
  35. 186 [153]"      pokesteptoto(NULL)wait                    steptoto(NULL)"
  36. 191 [153]"      fnwait(NULL)(NULL)thenwait                    fnwait(NULL)(NULL)thenwait"
  37. 196 [153]"   listl3 poke(NULL)absint(NULL)wait                    (NULL)absint(NULL)waitlist l4"
  38. 201 [153]"      tab(tab(tab(tab(                    tab(tab(tab(tab(";"poke                       (taste)
  39. 206 wait197,63:    gosub581
  40. 211 print"[147][146][149]es geht nicht ohne kreuzungen!";"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][156]versuche";
  41. 216 print" mit der geringsten anzahl";"      auszukommen!!"
  42. 221 print"[159] [209]  wieviel sind mindestens notwendig?"
  43. 226 print"     > ";
  44. 231 geta$:ifa$=" "then236:
  45. 236 poke19,64:inputa$
  46. 241 ifa$="0"then406 :gosub581
  47. 246 ifa$="1"then286
  48. 251 ifa$="2"then 296
  49. 256 ifa$="3"then 346
  50. 261 ifa$="4"then 361
  51. 266 ifa$="5"then 375
  52. 271 ifa$="6"then 416
  53. 276 ifa$>"6"then381
  54. 281 ifa$<>"1"anda$>"2"anda$<>"3"anda$<>"4"anda$<>"5"anda$=<>"6"anda$=>"7"then231
  55. 286 print"[147][146][159][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]das wird nicht genug sein.":gosub581
  56. 291 forz=1to2000:next:goto211
  57. 296 print"[147][146]  hm! [146][155] denkst du wirklich, das reicht?[144](j/n)":gosub581
  58. 301 print"  was nun?    machst du weiter?"
  59. 306 poke198,0:wait198,1:geta$
  60. 311 ifa$="[144] "then316
  61. 316 poke19,61:  inputa$:
  62. 321 ifa$="n"then331
  63. 326 ifa$="j"then211
  64. 331 forz=1to1000:next:poke56325,.:print"[147][146][156]du hast bestimmt nicht nachgedacht"
  65. 336 print"[146][150]sondern nur geraten, stimmt's?  na, egal";
  66. 341 poke56325,55:forz=1to2000:next:goto436
  67. 346 print"[147][146][158]  na ja, nicht schlecht - aber nicht die";" loesung"
  68. 351 gosub581
  69. 356 forz=1to2000:next:goto211
  70. 361 print"[147][146]   du glaubst, mit vier kreuzungen aus-";"    zukommen?"
  71. 362 geta$:ifa$="[144] "then363
  72. 363 poke19,64:inputa$:print"  "
  73. 364 ifa$="j"then366
  74. 365 ifa$="n"then371
  75. 366 print"[147][153] wuerde sicher funktionieren - nur 4[146] ist";"     noch nicht die"
  76. 367 print"                    gesuchte loesung!"
  77. 368 gosub 581
  78. 370 forz=1to2000:next:goto211
  79. 371 print"[147]  [158]warum, zum teufel, hast du denn '4'";"     angegeben?":gosub581
  80. 372 forz=1to1000:next:goto211
  81. 375 print"[147][146]du bist der loesung[157][157][157][157][157][157][157][157][157][157][157][157][157] noch nicht naeher gekommen!"
  82. 376 gosub581:printspc(12)"nicht schlapp machen!":forz=1to2000:next:goto211
  83. 381 print"[147][146]das ist es nicht![157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157] versuch's nochmal!";
  84. 386 gosub581
  85. 391 poke53281,1::::::::::::::::::::poke53281,.:poke53280,peek(53281):
  86. 396 forz=1to2000:next:
  87. 401 print"[147]":goto211
  88. 406 print"[147][146]              n  u  l  l[157][157][157][157][157][157][157][157][157][157][157][157] gilt nicht!!":
  89. 411 forz=1to1000:next:print"[147]":goto211
  90. 416 forc=1to5:print"[147]nee - auch das ist's nicht!"
  91. 421 poke53281,.::::::::::::::::::::::poke53281,2:poke53280,c:next
  92. 426 gosub581
  93. 431 poke53280,.:poke53281,.:forz=1to2500:next:goto211
  94. 436 poke53280,.:poke53281,.:print"[147]";
  95. 441 print"[147][154]   [206][183][183][183][183][183][183][183][183][183][183][183][183][183][183][205]  [206][183][183][183][183][183][183][183][183][183][183][183][183][183][183][205]"
  96. 446 print"   [154][180]  [151][169][164][164][223][146]        [154][170]  [180]        [151][169][164][164][223][146]  [154][170]"
  97. 451 print"   [180]  [151][165][146][219][219][167][146]        [154][170]  [180][151]        [165][146][219][219][167][146]  [154][170][151]"       "
  98. 456 [153]"  cont sgnlistl1poke(NULL)absint(NULL)waitcontusrusrusrusr(NULL)   cont+  sgnpoke   cont(NULL)usrusrusrusrpoke(NULL)absint(NULL)waitlistl2cont+"
  99. 461 [153]"cont   sgn +listtab(tab(tab(tab(contsgn    (NULL)  +  sgn  (NULL)    +listtab(tab(tab(tab(contsgn +"
  100. 466 [153]"  cont sgn  (NULL)   sgn     cont(NULL) +  sgn (NULL)     +   (NULL)  +"
  101. 471 [153]"  cont sgn   (NULL)  sgn      (NULL)then pokerndcontsgn(NULL)      +  (NULL)   +"
  102. 476 [153]"cont   sgn    (NULL) (NULL)      steptotototo(NULL)wait      cont(NULL) (NULL)    +"
  103. 481 [153]"  cont sgn     (NULL) (NULL)     sgncoscoscoscosabswaitdefw1   cont(NULL) (NULL)     +":
  104. 486 [153]"on   contsgn      (NULL) (NULL)    deftab(tab(tab(tab(tab(tab(    cont(NULL) (NULL)      +"
  105. 491 [153]"cont   sgn       (NULL) (NULL)      pokernd   cont  (NULL) (NULL)       +"
  106. 496 [153]"cont   sgn        (NULL) (NULL)andandsteptotototo(NULL)waitcontandand(NULL) (NULL)        +"
  107. 501 [153]"   sgn         (NULL)   sgncoscoscoscosabswaitdefw2 cont(NULL)         +":[153]     "
  108. 506 print"[145]   [154][180]          [205] [206][150][163][163][163][163][163][163][154][205] [206]          [170]"
  109. 511 print"   [180]    [129](k.1)  [159][214][146]    [151][187]   [159][214][146][129]  (k.2)    [154][170]"
  110. 516 print"   [180]          [206] [205][169][164][164][164][164][223][146][154][206] [205]          [170]"
  111. 521 print"   [205]         [206]   [181][190][190][190][190][182][146][150]w3 [154][205]         [206]":
  112. 526 print
  113. 531 print"[145]   [154] [205]       [206]  [206][183][150][163][163][163][163][163][163][154][183][205]  [205]       [206]"
  114. 536 print"     [205][151][169][164][164][223][146] [154][206]  [206]          [205]  [205] [151][169][164][164][223][146][154][206]"
  115. 541 print"      [151][165][146][219][219][167][146][154][206]  [206]            [205] [154] [205][151][165][146][219][219][167][146]"
  116. 546 print"    [155]l3[151][212][182][181][217][146]  [154][206]              [205]  [151][212][182][181][217][146][155]l4"
  117. 551 print"      [163][163][163][163][154][183][183]  [129]verschiedene  [154][183][183][155][163][163][163][163]"
  118. 556 print"[129]streckenfuehrungen sind moeglich. diese"
  119. 561 print"variante benoetigt nur zwei kreuzungen."
  120. 566 forz=1to3000:next:forc=1to27step.2:poke646,c
  121. 571 poke211,int(rnd(0)*15)+c:poke214,int(rnd(0)*c):sys58640
  122. 576 print;"[148]         > e n d e  <[146][147]",:next
  123. 576 print;"[148]         > e n d e  <[146][147]",
  124. 576 print;"[148]         > e n d e  <[146][147]",
  125. 581 poke54296,15
  126. 586 poke54277,31:poke54272,129:poke54273,2
  127. 596 poke54276,0:poke54295,4:            :
  128. 601 poke54277,31:poke54278,128:poke54272,1
  129. 606 fort=27to33:forn=126to129:poke54280,n
  130. 611 poke54273,(rnd(n)*t):poke54276,(rnd(t)*n):poke54276,n
  131. 616 poke54277,t:poke54278,t+n:nextn:poke54293,t:nextt
  132. 621 fori=70to129::poke54273,(rnd(0)*i):poke54276,33:
  133. 627 poke54273,1:poke54294,i:poke54296,i:poke54273,0:next:return
  134.